VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsConnect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Function ConnectionString() As String
  
  Dim sConnection As String
  Dim sCRConnection As String
  Dim sConnStr  As String
  Dim CrystalConnectString As String
  Dim strTemp As String
  Dim lngStart As Long
  Dim lngLen As Long
    
    'sConnStr = "Provider=SQLOLEDB;Driver={SQL Server};Server=lzg1504_01;Initial Catalog=keytax_IS;User ID=sa; Password=Mindkey"
    'sConnStr = "Provider=SQLOLEDB;Driver={SQL Server};Server=blueprnt-DEV2;Initial Catalog=keytax;User ID=sa; Password=blueprnt"
    'sConnStr = "Provider=SQLOLEDB;Driver={SQL Server};Server=blueprnt_sql;Initial Catalog=keytax;User ID=keytax;Password=mindkey"
    sConnStr = "Provider=SQLOLEDB;Driver={SQL Server};Server=SQL02;Initial Catalog=keytax;User ID=keytax; Password=m1ndk3y"
    'sConnStr = "Provider=SQLOLEDB;Driver={SQL Server};Server=SQLV02\I2;Initial Catalog=keytax;User ID=keytax; Password=k3ytax"
    ConnectionString = sConnStr

End Function ' ConnectionString



